home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / hard64 creator (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  39 lines
  1. 5 rem hardcopy
  2. 6 rem sys sa,x,y,x1,y1,sec.address,on,off
  3. 10 sa=49152
  4. 20 ea=sa+209
  5. 30 hs=int(sa/256):ls=sa-(hs*256)
  6. 40 he=int(ea/256):le=ea-(he*256)
  7. 50 fori=sa to ea:readd:pokei,d:next
  8. 60 sys57812"hardcopy.o",8:poke193,ls:poke194,hs:poke174,le:poke175,he:sys62954
  9. 70 end
  10. 80 :
  11. 100 data 32,241,183,142,196,192,32,241
  12. 110 data 183,142,197,192,32,241,183,232
  13. 120 data 142,195,192,32,241,183,232,142
  14. 130 data 198,192,32,241,183,142,194,192
  15. 140 data 32,241,183,142,199,192,32,241
  16. 150 data 183,142,200,192,169,0,133,251
  17. 160 data 169,4,133,252,172,197,192,240
  18. 170 data 21,160,0,24,165,251,105,40
  19. 180 data 133,251,165,252,105,0,133,252
  20. 190 data 200,204,197,192,208,237,32,204
  21. 200 data 255,169,4,162,4,172,194,192
  22. 210 data 32,186,255,169,0,162,0,160
  23. 220 data 0,32,189,255,32,192,255,162
  24. 230 data 4,32,201,255,174,197,192,172
  25. 240 data 196,192,140,193,192,177,251,201
  26. 250 data 0,8,41,127,160,4,136,217
  27. 260 data 201,192,176,250,89,205,192,40
  28. 270 data 32,210,255,172,193,192,200,204
  29. 280 data 195,192,208,222,173,199,192,32
  30. 290 data 210,255,169,13,32,210,255,173
  31. 300 data 200,192,32,210,255,24,165,251
  32. 310 data 105,40,133,251,165,252,105,0
  33. 320 data 133,252,232,236,198,192,208,183
  34. 330 data 169,4,32,195,255,32,204,255
  35. 340 data 96,0,0,0,0,0,0,8
  36. 350 data 15,128,96,64,32,192,32,0
  37. 360 data 64,82
  38. 10000 open15,8,15,"s0:hard64 creator":close15:save"hard64 creator",8:end
  39.